00100 (DE TEST () (PROG (TTYA TTYB) 00200 (PRINT @TTYA?) 00300 (EVAL (LIST @INPUT @A (SETQ TTYA (READ)))) 00400 (PRINT @TTYB?) 00500 (EVAL (LIST @INPUT @B (SETQ TTYB (READ)))) 00600 LOOP (INC @ A NIL) 00700 (OUTC (EVAL (LIST @OUTPUT @A TTYA)) T) 00800 (PRINT (READ)) 00900 (OUTC (EVAL (LIST @OUTPUT @B TTYB)) T) 01000 (INC @B NIL) 01100 (PRINT (READ)) 01200 (GO LOOP)))